home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / ss / anlytc_1.zip / CCO.CMD < prev    next >
OS/2 REXX Batch file  |  1985-09-25  |  567b  |  38 lines
  1. RM
  2. %4H      %*%%
  3. *C COPY COL OF DATA
  4. *C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
  5. TE P=%\*U HERE
  6. TE T-1.\R=%
  7. TE U-2.\S=%
  8. %qGive Start Cell of Row>%L %\
  9. TE *U HERE
  10. TE T-1.\B=%
  11. TE U-2.\C=%
  12. %Give End Cell of Row>%L %\
  13. TE *U HERE
  14. TE T-1.\D=%
  15. TE U-2.\E=%
  16. %Give Bottom Left of Left Column>%L %\
  17. TE *U HERE
  18. TE T-1.\F=%
  19. TE U-2.\G=%
  20. L A1
  21. TE G-C+1.\H=%
  22. TE B+1.\I=%
  23. TE C+1.\J=%
  24. *CLOOP
  25. *C LOOP
  26. *COOP
  27. CR P#%BC P#%IC:P#%DE
  28. TE C+1.\C=%
  29. TE E+1.\E=%
  30. TE H-1.\H=%
  31. TE *F LOOP
  32. *C SHOULD BE DONE HERE. EXIT.
  33. L A1
  34. L P#%RS
  35. TE %=P
  36. RF
  37.  
  38.